COMMENT ⊗   VALID 00002 PAGES 
RECORD PAGE   DESCRIPTION
 00001 00001
 00002 00002	BEGIN "FPRINT"
 00004 ENDMK
⊗;
BEGIN "FPRINT"
	REQUIRE "ABBREV[SYS,BGB]" SOURCE_FILE;
	SAFE ITG ARRAY FONT[0:10000];
	STRING STR; ITG EOF,FLG,I,J;
WHILE TRUE DO
BEGIN "MAIN"
	OPEN(1,"DSK",8,3,0,0,0,EOF);
DO BEGIN
	OUTSTR(" FONT FILE = ");
	STR ← INCHWL;
	LOOKUP(1,STR,FLG);
	IF FLG THEN LOOKUP(1,STR&".FNT",FLG);
	IF FLG THEN LOOKUP(1,STR&".FNT[XGP,SYS]",FLG);
END UNTIL ¬FLG;
	ARRYIN(1,FONT[0],10000);RELEASE(1);
	FOR I←'240 TIL 377 DO
	IF(J←FONT[I])THEN OUTSTR(CVSTR(J)) ELSE DONE;

	OUTSTR(↓&9&CVS(FONT['201])&"  MAX HEIGHT.   ");
	OUTSTR(CVS(FONT['202])&"  MAX WIDTH.   ");
	OUTSTR(CVS(FONT['203])&"  BASE TO TOP."&↓);

END "MAIN";
END "FPRINT";